kohonen_pattern_print Subroutine

   subroutine kohonen_pattern_print(current_pattern,unit_)
!========================================================================================
!! Subroutine to print a Kohonen pattern
      class(kohonen_pattern) :: current_pattern
!! A `kohonen_pattern` object
      integer,intent(inout),optional :: unit_
!! An integer variable with the number of the unit where the patterns will be printed
      if(present(unit_)) then
         write(unit_,*)
         write(unit_,*) 'PATTERN: ',trim(current_pattern%pattern_name);
         write(unit_,*)
         call current_pattern%pattern%print(unit_);
      else
         write(*,*)
         write(*,*) 'PATTERN: ',trim(current_pattern%pattern_name);
         write(*,*) 
         call current_pattern%pattern%print();
      endif
 !  
   end subroutine kohonen_pattern_print